home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / ktekdockv1.dxpack / {99B729EF-FA2A-47B3-A749-3FD5F0A6BC11}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-08-24  |  2KB  |  43 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Dim tt
  5.  
  6. Sub Object_OnScriptEnter
  7.     If DesktopX.Object("wmp_back").visible=False Then
  8.         tt = "Click to show playlist"
  9.     Else
  10.         tt = "Click to hide playlist"
  11.     End If
  12. End Sub
  13.  
  14. Sub Object_OnMouseEnter
  15.     DesktopX.ScriptObject("kdocktooltip").tooltip(tt)
  16. End Sub
  17. Sub Object_OnMouseLeave
  18.     DesktopX.ScriptObject("kdocktooltip").tooltip("hide")
  19. End Sub
  20.  
  21. Sub Object_OnStateChange(state)
  22.     If state = "Command executed" Then
  23.         If DesktopX.Object("wmp_back").visible=False Then
  24.             DesktopX.Object("wmp_back").visible=True
  25.             DesktopX.Object("lstMediaType").visible=True
  26.             tt = "Click to hide playlist"
  27.             If desktopx.ScriptObject("lstMediaType").control.text<>"Select a source ..." Then
  28.                 DesktopX.Object("lstPlaylist").visible=True
  29.                 If desktopx.ScriptObject("lstPlaylist").control.text<>"Select a playlist ..." Then
  30.                     DesktopX.Object("lst_tracks").visible=True
  31.                 End If    
  32.             End If
  33.                 
  34.         Else
  35.             DesktopX.Object("wmp_back").visible=False
  36.             tt = "Click to show playlist"
  37.             DesktopX.Object("lstMediaType").visible=False
  38. '            DesktopX.Object("lstPlaylist").visible=False
  39. '            DesktopX.Object("lst_tracks").visible=False
  40.         End If
  41.     End If
  42. End Sub]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>239</EditorLeft><EditorTop>55</EditorTop><EditorRight>1090</EditorRight><EditorBottom>875</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  43.